home *** CD-ROM | disk | FTP | other *** search
/ Mac Power 1997 December / MACPOWER-1997-12.ISO.7z / MACPOWER-1997-12.ISO / MacPowerオリジナル / Edutainment World / チャンプジム for DEMO / DIR / DataAccess.cst / 00001_Script_FileIOControl Script next >
Text File  |  1997-09-29  |  2KB  |  99 lines
  1. --ﾃﾟ勝ｵ静○           fcOpen( filename)
  2. --                           filename..ﾃﾟ勝ñｺ
  3. --ﾃﾟ勝ｵ静○           fcOpenR( filename)
  4. -- ﾅiìｫﾇ帷ûﾇ幀ﾍópﾅj  filename..ﾃﾟ勝ñｺ
  5. --ﾃﾟ勝ﾞ\©\           fcClose()
  6. --ｯ\請ìｫﾇ帷ûﾇ›       fcRead()
  7. --ｯ\請齏ﾇｴ鍄ﾇ›       fcWrite( buf)
  8. --                            buf..齏ﾇｴ鍄ﾇ屏\ﾘﾃﾟ
  9. --ﾃﾟ勝醂顫             fcDelete()
  10.  
  11. global gFileHandles
  12.  
  13. ---------------
  14. -- FILE OPEN --
  15. ---------------
  16. on fcOpen filename
  17.   
  18.   put FileIO(mNew,"write",filename)  into gFileHandles
  19.   if ObjectP(gFileHandles) = false then return -1
  20.   
  21.   return 0
  22.   
  23. end fcOpen
  24.  
  25. --------------------------
  26. -- FILE OPEN (ReadOnly) --
  27. --------------------------
  28. on fcOpenR filename
  29.   
  30.   put FileIO(mNew,"read",filename)  into gFileHandles
  31.   if ObjectP(gFileHandles) = false then return -1
  32.   
  33.   return 0
  34.   
  35. end fcOpen
  36.  
  37. ----------------
  38. -- FILE CLOSE --
  39. ----------------
  40. on fcClose
  41.   
  42.   gFileHandles(mDispose)
  43.   return 0
  44.   
  45. end fcClose
  46.  
  47. -----------------
  48. -- FILE LENGTH --
  49. -----------------
  50. on fcFileLength
  51.   
  52.   return gFileHandles(mGetLength)
  53.   
  54. end fcFileLength
  55.  
  56. ----------------
  57. -- FILE WRITE --
  58. ----------------
  59. on fcWrite buf
  60.   
  61.   set res = gFileHandles(mWriteString,buf)
  62.   return res
  63.   
  64. end fcWrite
  65.  
  66. --------------
  67. -- FILE READ --
  68. --------------
  69. on fcRead
  70.   
  71.   set rbuf = "" 
  72.   set rbuf = gFileHandles(mReadFile)
  73.   return rbuf
  74.   
  75. end fcReadFile
  76.  
  77. --------------------
  78. -- FILE READ LINE--
  79. --------------------
  80. on fcReadLine
  81.   
  82.   set rbuf = "" 
  83.   set rbuf = gFileHandles(mReadLine)
  84.   return rbuf
  85.   
  86. end fcReadFile
  87.  
  88. ----------------
  89. -- FILE DELETE --
  90. ----------------
  91. on fcDelete
  92.   
  93.   gFileHandles(mDelete)
  94.   return 0
  95.   
  96. end fcDelete
  97.  
  98.  
  99.